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PREFACE 


? 


FOCAL-I1! is identical to POCAL-8 for ‘the user with the 
exception of the error diaynostics (Appendix Aa), the symbol 


table typ2out (Appendix Cc), and adiitional features © 
(Appendix B). The extended functions are not all> 


implenentel, but may be genérated as done in the progjgran of 
Appendix 5, using the special FNSW{A,G) function. Notes on 
harijiware connected problems are given in Appendix D. For an 
introjuction to FOCAL programming ~ s¢e “FOCAL-8" in 
Projranming Languages. | 


Several features have been aijead to this version, All fiela 


test versions should be discarded. This is a preliminary _ 


release; a final release is scheduled for late ‘’71. 


This is a stand-alone version of the proyram for use on the. 


POP-11/23 computer, 


The following is a concise description of the FOCAL lan-yJuage - 


a iS 


to serve AS a review for users of FOCAL-1}. 
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FOCAL=-11] SUMMARY 


~INPUl/OUTPIT- 


Tne *TyYPE* ant *AS«* Statements are used for output anid 
input of alphanuneric calculations. Formatting of 
{nout/foutput is done within the statement itself, Several 
expressions may be in the same statement if the expressions 
are enieli by comnmnas. In the ASK statement only = sinyle 
variable nanes may be used between conmas, and the user 
types in the values. | 


Text may be placed in quotation marks, A_carriaje return. 


a i 


_gutonstically ~closes quotation marks. The bell may only. be 
“{nserted during initial input. If the user wishes an 
expression typai “out to the left of the result from the 
evaluation process,. he may bracket the expression by 
question aarXs. (e 7. ?74%5.27). This is a special use of 
ene trace feature. Z -* | 





To supply eae as returns within a ‘[yYPs or ASX. statenent, 
the exclanation mark (!) is used. A number sign (#4) returns 
the print mechanism to the left-hand margin but does not 
feea the paper forwari. Both the TYPS and tne ASK 
statements may be followel by 3; anid other commands unless 
a “$s” is in the string. | 


There is a symbol (2%) to change the outout format within a 


TYP= statement: SX.6Y, where X ani Y are positive 
inteyers less than or equal to 31. X is the total number of 


digits to be outout ani Y is the nunber of digits preferrai . 


to the riynt of the decinal point. On output, leading 8's 
are typed as spaces, If the nunber is larger than the field 
width, © fornat will be used. E format is also specified by 
% alones +9.%XXXXXXE#¥ where f+Y means “1 to the Yth 


power . The current output fermat is retained until 


explicitly chanyei. Y is reduced when necessary. (see 
Appe nlix B.4.) . ~ 


In the *ASK* statenent, input ,may be terminateil by certain 


characters: space, conma, ; , veturn, .or alt-mode (a 


special nonprinting terninator used to ‘syncnronize the 
_projran with external events), If alt-mojJe is the first 
character to be input after the colon, then the value of the 


variable 43 unchanyai, The left arrow erases dnput; ruoout - 


is ijynorel (sea Aopeniix, B. G); wand line, feed is iqnore3i. 
Inout words like “yss" , NO", “INCHES” are given the same 


nunzrical value as constants OY3, ONO, BINCHES © 


respectively, 
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The *#O9PERATE* coumand is used to select — input and/or | 


output Jevice. The comand OPERATE R(or "O<space>R ) causes 
the hign speed reader to be used as the ea device for all 
subsequent input. Other argunents to the DPSRATS conan 3 
‘are ">" For high soeead punch, L for line printer, for 
keyboard, anj "T” to reselect the teletype printer. The 


comnanid OPSRATS RP selects both the hiyh speei devices 
#CONTROL~ 


The #DD* connani forms subroutines out of single lines, 
groups or of the entire text buffer. For a sinzle line 
subroutine, control will be returned when the end of the 
line is encountered or when the line is otherwise A aise 
_(such as by a RETURN statement, or in the case of TY with 
the $). An “IF. command or "GoTO line” delays bin until 
the end of “line” ° 


The stdtenent "DO 5° calls all of group 5 as a subroutine, 
beginning with the first group 5 line nunber. Control will 
_then oroceedi through the group numbers going from snaller to 
larger. A return is generated from this type of sudroutine 
(1) by using the word RETURN, or (2): by encountering the end 
of that grouv, or (3) after transferring control out of that 
group via a GOTO or IF commani., Similarly, the entire text 
buffer nav be used as a recursive subroutine py simply using 
DD or DO ALL. 


The DO statement may be combined with other leyitinate 
connamis by terminating it with a semicolon. Several forms 
of subroutine gEOupings may be tested from the consoles 


The euaven of DO commands which may be nested linearly or 
‘Yecursively is limitel by the amount. of core storage 
renaining in the push-down list. “(see Appendix B.3) 


When a GOTO or IF statament is executed within a Do qroup > 


subroutine, control is transferred to the odject of tne GOTO 
‘or IF commana, That line will be executed before return is 
made to the DO processors; if a line nunber outside the yroup 
is now apout to be executed, then a return will be made from 
the DO subroutine call, 


The *GOITO* Connand will cause senceol of the program to be 


transferrei to the indicatei line number after the GOTO 
coanani, If control is initially handed to the projram by 
means of an imneidiately executed GO, control will proccai 
fron low numbered lines to higher numbered lines as is usual 
in a computer program. Control will be raturned to Conmand 


Moje upon encountering a QUIT command, the end of thea text, 
or a RETURV at the top ene 


~~ 
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Phe *CONTINUE* Statement is usei to indicate dummy lines. 
Por example; it might be used Ri replace a line referenced 
elsewhere without changing thos references to that line 
nunber, “a % | 


The *RgTURI Comman3 is used to exit from DO subroutines. 


The # QUIT* Command causes the proyran to return immediately 
to conmana/input moje, type va » and wait, It does not 
reset the I/O-devices, however, | 


The *#COMME ND* Statenent will cause the remainder of that 
line to be ignored so that comments may be inserted into the 


projran. 


The. ® EXECUTE % Commani is usei to call functions without 
getting UP a dunmy SET statement. Any expression may follow 
the XSCUTE connani. |For example "XECUTE FCHR( 48)" will 
output the character 0. 

The Conditional *IF* Statement is used to transfer control 
after a conparison,. The normal form of the statement 
contains the word I¥, a space, a parenthesized expression, 
ani three line nunbers separated from each other by commas, 
The progran will GOTO the first line nunber if the 
expression is less than zero, the seconi line nunber if th 
statenent has a value of zero, and the third line nunber if 


the value of the expression is Jreater than. 


zero: IF (A-3) I}.!, 1.2, 1.3. 


Alternative | forms of the IF command are obtainea by 
replacing extra commas . and line nunbers by a 
semicolon: IF (A-3) 1.1; TYPE HIGH 


Seana ee 
The # SST Statedene: is used for setting the value of a 


variable equal to the result of an expression. An 
expression nay contain function calls, variable names, and 


nunerical values, All of the usual arithmetic operations. 


plus exponentiation, may he used with these operands. Any 
pairs of parentheses may be used: SET A=B*(],23+4/fSQr<DEL>) 


The *FOR* Statement: This commana is used for convenience 


in setting up progran loops and interations, The general — 


format is: FOR A = B,C,D;---". The index A is initialized 
to the value B, than the commana string following the 


senicolon is execute. When the carriavte return is 


encounterea, the value of A is increnented py C and compared 
to the value of D. If A is leSBsS than or exual to oD, then 
the conmani string after the semicolon is executed again, 
This process {5 repeated until A is greater than D. Note: 


The 2. cOmpubations _ involveal in the FOR statement are done in_ 
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floating point arithnetic. _ 


oa must be a single variable; 3 oven and D may all be 


, sus ae ee eee eee oe e+ ee 


expressions, variables, “functions, or - nunbers., I£ the comma” 


ani the Pade of C are omnitted, then it is assumed that the 
ancrenent is ones, 


22D Iv! ‘G— 


Editiny comnands may not be followei by other commands on 
the same line. 


The #=3RASS * Connand erases a yroun of conmand lines or 3 
Single line. For exauple, ERASE 2.2 will cause line 2.2 to 
be deleted. No error comment will be given if that line 
-munber does not. exist. The command ERASE 3 or 3.2 will 
cause all of group 3 to be erased, To delete all of both 
the text and the variables, one must type the words 
SRASS ALL. This is to insure that erasure is not 
accidental. ; 


SRASE, used alone, has the function of, merely renoving the 
Variabies without affecting the text, This may also be 
‘thought of as initializing the values ~ of tne variable to 
zero, Modifications to the text may or may not cause the 
variables to be deleted as if an ERASE command has been 
given, It is gooa peaeee ce to use an- SRASE at the veyinning 
of a progran. 3 


The SRASE TEXT command leaves the variables intact but 
removes all program text in preparation for using another 
projgran of the same or smaller siza with.the same variables, 


The *MODIFY* command facilitates correction of individuai 
Characters within a given. line. Thus, to modify the text in 
line 5.4, the user types “MODIFY 54", The command is 
terminated by a carriage return, whereupon the program waits 
for the user to type a character -that is in the position at 
which he wishas -to make changes, This character is aot 
printed immediately, but the program prints out the contents 
of the’ line until an occurance of the search character is 
found ani that character is printed, 


At this point the progran waits for the user to exercise one 


of seven optiona By typing 

ft. nev characters 

2. form-feei (CNTRL/L) + this will cause the search to 

- proceed to the next occurance, if any, or the search 
pea a 

c NERL/G(bell); this allows’ the user to change the search 
pepo e 

4, xrubout to delete single characters to the left; | 

9. left arrow to delcte all of the characters to the left; 


Ebi, 


ERASE 


hic Ont 
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Cs 


~~: 
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6. ne return to delete all characters to the right; 
7, line-feo 21 to save the remainder of the Line. 


The *VRITS * command is wees to examine the FOCAL text: 
WRITE ALL (or W A) for all text; 

— WRITE 7 to list all or grouo seven; 

. WRITE S.t-to print a single line. 


The trigonometric functions available are FcOS(arg) anda 
FSIN( arg) for the cosine and sine of an argunent in radians. 
Further functions may be used as inijicated in Appenajix = by 
using the FNEW(,) function. 


- The user programmed function FNEW( arg, yroup) is used to 
-transnit an argument to the variable & (anpersana) anid then 
call the indicated grous (or line nunber) as a subroutine. 
When the subroutine returns, the last value of & (amnersanda) 
gs taken as the function return (i.e. the final value of 
the function FNEV(,)). See Appendix = for examples. 


The VNIBIS control Puneeien FX(func, UNISUS-adiress, data) is 
usel to control additional device options or non-standard 
peripherals or tos reference core storage. The first 
arguaent “func” can have a.valne that is negative (-]), zero 
(9), or positive (+1) to select the function that is to be 
perforned, The functions are respectively read (-1), 


G) 


«! 


WRITE 


FP NENS, 
3. 


FX 


— | = ROAD 
-AND 


loyical “AND” (0), and load (+1) onto the UNISUS. ... The, ie 


second argunent “UNIBUS-address: must be eitner ancocted 





munber or a variabie nans The function selected will be qa 





Ae a oe ee 


‘perforned on this “address ‘with tne data given, if any, in 
the thira argunent ( data). : 


The character I/O function vemntaia is-‘used to manipulate 
the value of a single character from the currently selecte3 


input or output aevices (see the OPERATE commana for how to_ 


select devices). If the argument is negative then the 
function will acquire the next available eight bit chacacter 
fron the input device If the argument -is zero or positive 
then that (decinal ) value will be convertei to an eignt nit 
{ntejyer ani transmitted to the currently selectei output 
Zevice (The value of the function is the inteyer value of 
the argunent,). The function may also be usei 
recursively: S&T 2% = FCHR(FCKR{-1)) will accept a character 
frou the input devica, output the sane ‘8 bits, and leave the 
value in the variable Z, | 


The raniom number function FRAN{ ) has a pseudo-random value 
between 9 ana 1 (no argument), 


arg ca 


LYAD 


PC 
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The analoy to diyital converter function PFADC(GAIN , CHANNEL) 
allows easily. progrannead access to as many as 32 A/d 
ehamels on the ADZIl-A. The first aryunent: 13 a gain 
control with a value of 9,1!1,2, or 3 for a multidlier (on tha 
input voltaze) of 1,2,4,3 respectively.: The value of the 
function is in units of volts tines the multiplier factor. 
For other types of A/D converters, use the FX(,,) f:mction. 


The general purpose functions are FSOT(ary7) to fini the 
syuire root of the argunent; FABS(arg) to take the absolute 
walue; FSSN(ary) to give the sign (+! or -!) of the 
arjunent; ani FITR(ary) to find the inteyer part of an 
expression. . 


The clock funetion FCLK( ) has a value of the time elapsed 
in’ -68ths (or S$3ths) of a secona Since the clock was started 
“(ey FX(r, 177546,64)). No argument is used with the FCLXx( ) 
function. ° The clock can be stoppel by FxX(1,177546,9), 
power-fail, or manual- restart but not by CNTRL/C. The 
a per clock “tick” is 38.3 microseconds (see Appendix 
S62) | 


~OPS RATION —~ 


Loading SOCAL-11 is done with the absolute loader: the 
projran will start itself and automatically use all core 
fron zero to the binary loader, The progran may ba 
restarted at any time by typing CNTRL/C or by pressing 
“STOP” and restarting at location zero. 











Upon power-fail the program will save all registers an3 
halt. Jpon auto-restart the program will resume operation 
fron wherever it stopped. A few characters may be lost on 
the I/Od devices, | 


-POLICY~ 


The preliminary release is not not budgetei for software 


support nor advertising. We shall have to depena pen word 
of mouth to spread the good word. . 


The internal Jocunentat ion (listings, sources, etc.) will be 
available in “March on an all-or-nothing basis for $2909.05. 

This policy gives the sophisticated user all he needs to 
create new systens, It maxes costly the addition of small 
dialectic chanjyes outside of DEC and thus keeos us in charge 
of the lanjguaye specifications, Finally, it means that. 
software support people will be spared large numbers of 


questions about the internal workings. Such questions may 


be written to Maynard, 


FASE 
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702 = 
— 28 
262 


733 = 


= 2e4 = 


265 - 
926 ~ 
297 - 


728 — 


229. — 
210 - 
211 - 
212 - 
213 - 
214 - 


215 - 


2716 - 
217 - 
718 - 


(o) - 
(xr) - 


other 


< { 


Apoendix A 


manual restart made Fron location 8 or by CNTRL/C. (4) 
illegal line nunber desijynated, 

illegal variable or Function name used, 

sarenknests do not-match, 


illegal command used, 


nonexistent line number requested, 


nonexistent eeaun or Line nunber rejuested by ® D0, 
illegal format found in *SET* or *roOR*, 

operator aceenng in expression, 

stack overflow or nonexistent device selecte,. 

core filled by text. (0) 

core filled by variables or. no room for variables. (0) 
exponent range (s oaberae of B+38, (0) 

disallowed buss address in "EM i (0) 

division by zero attempted. (r) 

negative power tried or power too large. (r) 

too many cnaracters in input data. {r) 

square root of negative number tried (r) 


inout puffer overflow 


operational error 
A run-tine error 
- lanjyuage or format error 
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Subscripts 


ae Doudle sudscripts are modulo 255 (see also Appendix Cc.) 


b, Single subscripts are modulo 2T16-1.. 


“@. The Symbol table typeout. ("$") is not in chronological 


2e 


order and variables with single subscripts are printed 
inthe synbol table printout as double suvscripted 
variables. 


Line Nunbers 


a. Line numbers larger than 99.99 are NOT error checked 
and sone of them are acceptei, Line numbers with 
greater sijynificance than .@1 are chopped off without 
notice: 1.995 becomes 1.99. 


b. Variables not starting with the letters “A” or “F° may 


be used wherever a line nunber may be used except upon 
initial input. 


The Push-Down List 


The Push-—Down List is limited te Q words where Q may »51e 
approxinated by Q = N¥7 + M*#5 + L¥*1% andi must be less than 


164, 


oN is the depth of subroutine calls (*D0O*) 
M is the depth of paren.pairs 
Lis the depth of nested *FOR*® loops, 
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4, Foruats 


Ae 


#ée 


Variable formats may be peaees by us sing a ‘variable in 


place of the format description: | 


7 TyPs,% DIGITS, ALPHA, ! 


“ea the riynt hand margin (72 eine’ is -encountered 


on the teletype, an extra carriaye-return/line-feed 
pair is printed. This does not apply to the line 
printer nor to the high-speed punch. 


5% Patch Information 


ee SesSZ CfcUuee . | 
Location BOTIOM er ee last core address used. Cnanye 
the content of CTY? 546) to 194440 to suppress "=" = print a 
Space instead, Change the content of ASK+6 to | BoL402 to 
suppress 3 2. — S0re | 
| 6. Speed 


A 10 x {9 matrix can be inverted in a 4% configuration in 
65 seconds, Such programs may be 40% faster than FOCAL-8.: 


Ve Storage Space and Variables 


Each variable uses 4 words; 


Eee OSD QED Ob Ger qa Gy a ENS oy COP CES ep ae wp aE aa? G7 Ge we Sew espe SOD 


In a 4K machine there are about 14@% word locations for 
progran text and/or ‘variables. The space that is not 
used by the text is all used for the variables, - 


each character uses | b 





Variables may remain intact after a *MODIFY* comman:i. 
This can make certain programs easier to debut when 


“data is not lost while correcting the progran. 


8. Arithmetic. 


Ae 


77 


Arithmetic significance (6 digits) is the sime as that 
Lor FOCAL-3, but the rounding algorithm is improved, 


43> 
‘The range is ten to the pilus or minus 38. IC | 


De Starting Ajdresse 


10. 


Ib. 
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ae 


b. 


0 


ab 1 aa 48h eam «Ep enh GE at @@ Ee GS ore aD 


The progran 4s self-starting at load tine and upon 
power-f ail plus auto-restart. | 


Manual restart is from location zero, 


Input Data 


Ce. 


4A, 


ao 


£y 


Je 
h, 


4. 


'Sxpressions beyinning witn + or - as well as numbers 


may be used as input to an *ASK* command:+Xt2-X+3.1. 
Double subscripted variables may not be usel as input. 


Rubout may be used to delete single characters of 
input. 


Commands and New Functions 


The OPSRATE comnand is used to select I/O devices. 


The XZECUTS connand is _used like a Fortran CALL to 
execute functions as subroutine calls. 


The time-of-day clock can_ be started by "XECUTE 
FX(1,177546,64) . It can be stopped by <XECUTE 
FX(1,177546,0) ° | 

The ERASE TEXT command is new, 

FX(func, adajr, data) to access the UNIBUS. 
FNEW(arg,jJroup) to call a user fimction 
FADC(gain,channel) to read the A/D. 

FCLK( ) to read the internal clock. 


FRAN( ) to have a random number 9 to }. 


12. 
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Fubure Comnands > 


a. The *BEGIN* conmand is used to start a FOCAL process — 


Ce 


(i.e. to DO” a yroup as a subroutine) when a certain 
time has been reached or a delay expired (comman2 is 
available only with the RSX and FOCAL-11 overlay). 
ew. "BEGIN 45 AT X°, where X is the time-of-day in 


hundredths of a second. 


The *XILL* command is used to halt all processes »beyun 


“by the BEGIN comnand,. 


The *LIBRARY* command interacts with the disk operating 


-Systen, It is available only witn the DOS and FOCAL-1! 


overlay: 


LIBRARY CALL file 

LIBRARY DELETES file 
LIBRARY GOSUB file (line) 
LIBRARY LIST dev: : Fs 
LIBRARY RUN dev:file {line) 


‘LIBRARY SAVE dev:file 


LIBRARY ExIT 


LIBRARY OUTPUT dev: file 


LIBRARY INPUT. dev:file 
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SYMBOL TABLE SURSCRIPT PRINTING 
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Single subscripts and negative Subscripts are printed as 
double subscripts. Nunbers greater than.255 are printed a3 


excess 255. 


Single Subscript Storage : A(I) : 16 bits 
Double Subscript Storage : A(I,J) : 82 bits , 8 bits 


~All output is treated as Naving.double subscripts: 


Usase > Printout Type of Subscript 


B( 123) B (128, 08) = Single < 255 
B(@,1) B (62, 21) = Gouble < 255 
B(256) B (23, OB!) = single > 255 
B(+!, —1)  B (®1, 255) = negative double 
-B(=-1) B (255, 255) = -negative single 
B(-256) B (@8, 255) - negative > 255 
B(257, 3) B (G1, 23) = double > 255 
Appendix D 


Ci et ent em om ee ot we Se oe 
: ‘ 


RARDWARS NOTES 


Using a non-existent device on a particular configuration) 
Will cause error ?29. | > 


"An error diagnostic or CONTROL/C resets I70 device selection 


to teletype output and keyboard input, 


An ADO@l error flay will cause FADC(,) to hang. Recovery is 
only by restarting at zero or by a power-off-on cycle. 


At least one character must be typed on the Peers before 
the low speed reader will read. : 


Power-fail or manual START will stop the clock. 
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ae a atore os a Recursive Function» 


EZ eZ 


Lasers 5) 


niix E 


4.2 TY?t ae cal 3)5 C-FACTORIAL FUNCTION 
123 QUIT 


Sh IF (1-&)5.25R 


5.2 Sst & 


=f PIEW(&—1, 5) 


Sone Transcendental Functions 


1.1% 
Li .22 


12,08! 
1 2. 18 
12,20 
12,33 


13.) 
13.12 
13.20 


14.81 


14, 12 


14.28 


15 01 


}3 .29 


16.21 
16, 12 
16, 2¢ 
16, 32 
& | 
+ 


mea QHO O wWH«”A Ue 0) 


ONnNHY 7 on a) 


TAN: DO 1] OR FNEW({ARG, 11) 
(&t2—-.G1) 11 .2:S &=&/23D 1135 


&=&441 3/3487 5/7. 3+&77/315 


ASIN: 


DO 12 


ACOS:D 12.3 OR FNE¥ (ARG, ‘12. 3) 
(&T2~.51)12.2;5 &=d/ (F302 (1+%) +507 (1-&)) 5 D 12;S &=2 


&=&+&1 3/64. B75+&17/22.. 4; °R 


}2;D 


ATAY: DO 13 OR FN 
| @1)13.2;8 & 
& = &-&t3/3+&1 5/5 &t 


(&t2-, 


SKE 


(&T2—.01)14.235 bua D 14; S &e=&123 R. 
c= si saset2/2ieta/erata/acsnts/iabieie/726 


LOS: 
(&12-2 


&= (&- I) / (aot 


SI Nis DO 15 | 
(&t2-.21)16.23S &=&/33D 163 S &= SR E+ AF E13; Rr 


13.1 


DD 14 


DO 15 


S4(ARG. ! 
=&/(l4+F 
7/7 


“CosH: DO 16,3 


&= &+&1 3/64+&7 5/1293 R 


16;S &= FSOD(1+%12) 


3) 


so? (&t2+1)) 3 D 1353S &=2*&5R 


~ 


oi Pooi tay 2:5 &=FSOT(&); D 15; S &= L2H%s R 
3 &= 2% (&+-&13/34u15/5+277/7) 


®. 


_ PAGE 


&=2#&/(1-&t2+1E-29)5R 
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WER 


“FOCAL-I1 Goo 


sxanple of a Device Control Function 

eS , “ye a 

fe i. | —_ 
24.21 C THIS PROGRAM PRINTS THE BIT PATIERN IN THO S R 
21 1G Sel Z=FX(1,177575,-1)° | ma 


«92 2G IF (7-21)21-5,21.1, 21.5 


1 AG 


= 21.659 S Zl=Z;T !385 een ne 21.1 


40.12 3 &l=14 

449,20 IF (&-21%1)40.335 g=FouR (48) 
42.21 S &=2-21T&} 

43.25 IF (%)X33 43.2 

40. 30. S Z=FCHR(48);G 49,22 | 

3 

OSD 

BABASHG5C0Z3101 


PEOBOOILIG20111 
PLLCSGI11GS6111 
BlLIQOBILIZOSII1 
GILVLL1L1e8e111 
BiWLL1s19800z9 
ABAOGLICABEDAAS 


.. Seanple of a Yiming Routine 


1.1 X 
1.20 


X(-1, 177546,64) 
Ss = 
1.38 F 

S 


FOLK { 

1,1422; DO 2 

X= FCLK( JX | 

1.53 TYPS !27.96, X/6023~38. 32-9#X, SECONDS: PE OR CYCLE,” 
1.78 QUIT 


EF 
vA 
i= 


‘2-01 C SUBROUPT NE NS TO BE nee 


Ze {9 X A+B 
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3f2 CHANGE LANGUAGE, ALPHABETIZ= ON 


'POCAL-11 
Apvenidix F 
FOCAL=31 Commands 
ZSENGLISH 3; FRENCH ‘SPANISH 

ASX sASK sDEMANDS SINTORRIWGI=S 
SRVIORC ‘BEGIN ;LEVE — $XSCUTE 

PC] SCOMMENT 3COAMENTS 3COMENTARIO 
59 ~$po _ FAIZ -  sHAGA 

ERASE sEXRASS 3;BIFFS >BORR= 
FORD sFOR * QUA ND *PARA 

| Goro. sGOTo sVA sADELANTE 

EBRRORC sH Ko s5— 

iz elf SI goge 

ERRORC sJ=- 3J— 3J—. 

& RRORC sKILL sHALTS ;HALTS 

© RQDRC sLISRARY s;ENTERPOSE 3LAZO 
MODIFY sMODIFY ;MODIFIS  ;MODI?IQUE 
BE RRORC sN— sG— . - $§V— ; 
PROGIO SOPERATE ;PRATIQUE ;OBRARE 
BRRORC ¢P—  sN= gee 

STARTX sQurL SARRETE s DETENGASE 
RETURN sREPTURN sRETOURNS ;RELTOURNE 
s=Pr Eopory SORGANIZS j;UBLQUE 
TYP: sTYPR sTAPS . TIPPEE 

5 RRORC ; U— 3 U- sw 
ERRORS 3V— i  gQR 

WRITS sWRITS sINSCRIS sSSCRIEBA 
XECUT=S | sxSCUTS 3;A=CUTE sFLUIR 
sOTHSRS UNUSEDs 3YZ 3YS- > (ae 


*GSRAAN 
se RAGE 
*COMMEN CS 
*XOMMEN TAR 
siMACKE 


3LOSCHE 


- DAS Ss: 
sGEHZU 
; U- 

5 WONN 
;i- 
sHALT 
*BILBLIOTHEK | 
sANDERE 
sJ— 

; ORGRATS 
;N- 

s ENDE 
sQ0IrTs 


oar ~~; 
iS OSL oS 


SRSCHNE 
3 P— 

;V— 

Ss. LerS 
sACCUPE, 
re YA 


THE APPROPRIATE COLUMN. 


